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(3) 11 _ RUN_ IMAGE 

(4) 15 * LOGOUT PROCESS 

(5) 19 PREPARE THE PROCESS FOR LOGOUT 

(6) 3 MCR COMMAN 

(7) 81 EXTERNAL COMMAND EXECUTION 

(8) 23 INITIATE IMAGE 

(9) 47 DCLSFORCEXIT = FORCE IMAGE EXIT 

(10) 74 ALLOCATE BUFFER AND BUILD DESCRIPTOR 

(11) 602 COMMAND INTERPRETER EXIT HANDLER 
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E IMAGEXECT - IMAGE EXECUTION 
+ V0R=060 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


ca 

e 

® 

we 

® 
THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
NLY RDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
TRANSFERRED. * 
® 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
CORPORATION. * 
® 

® 

® 

Y 

® 

* 


DIGITAL ASSUMES NO RESPONS . 


IBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH 


L 
S NOT SUPPLIED BY DIGITAL. 


PTT TTI IT ITI T IIIT iit iii titi iii ii iiiiiiiiiiiiiiiiiitiiiitiititiitiiiiiy) 
; IMAGE EXECUTION BY EXTERNAL IMAGE COMMAND OR RUN COMMAND 

D. N. CUTLER 4-APR-77 

; MODIFIED BY: 


v03-008 HWS0090 Harold Schultz. 22-Jul-1984 
Just delete the process if an image activation error. 
is encountered while attempting to logout via executing 
the LOQGINOUT image. 


: v03-007 HWSO0075 Harold Schultz 28-Jun-1984 

: Move initialization of command interpreter command 

; pointers to the beginning of the command interpreter 

: exit handler in order to insure this initialization in 
3 the event a CNIL-Y is pending 


v03-006 HWS0037 Harold Schultz 21-Mar-1984 
Use PRC_V_IRUNDWN flag to indicate whether or not an 
image has been rundown by DCL 


v03-005 MSH0001 Michael S. Harvey 12-Jan-1984 
Defer reporting alternate success message until image 
fixups are completed. This is necessary pec ayes message 
output can clobber fixup context stored in P1. 


v03-004 PCG0008 Peter George 27-May-1983 
Change DCLSRESTORE_OUTPUT calling format. 


v03-003 FCG0007 Peter George 13-Jan-1983 


SOOCCOCOCOCCO COSC OSOOOCOCCCOCOOSOOCOO OOOO OOOOOOOOOoOoOo 


COOCOCOOCOCOCOSOOSCOSSSSoSOoOCOCSCOoOSCOOCOCCSCOSOCSOSOSOOOCOCOOCOSOOOOOSOOOOOOOOOoOO 
SOCSCOCSSSSOOSSooooooooooooooooooooooooooooooooooooooooo 
SOOOoooooQaoooooooooooooooooooooooooooooooQooooQooooooooooo 

NOME WR SO OD NAME WN 0 OD NAU EWN 9 ODNAUE WN 9 OOONOAUE WN OOONOU SW 


PUPP EB EB BB EE EMA NNA IAI IAIIDIDINININPIPONPIPINPI NY 2 OO Os es Os ee oe 


SOOoQooooooooeoo 


ooo 


ooo 
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$008 28 3 Set up exit handler block in INITIAL, not here. 

000 9 ; Close redefined SYSSOUTPUT before logging out. 

4 9 : Add DCLSCLOSE_PPFS. 

0000 6¢ : v03-002 PCG0006 Peter George 22-0 t-1982 
44 ° : 3 Move DCLS$EOJ to COMMAND. 

0000 65: v03-001 PCG0005 Peter George 09-Jun-1982 
4464 66 s Allow MCR command/qualifier without a delimiting blank. 
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1 MACRO LIBRARY 


So 
m 
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PPAPAPRAPCPMPOPAKVUE VM 
Sa ie Bee toe ten ns ee Be I) 2) 


LOCAL DATA 


-PSECT 
EXTDEFAULT: 
-ASCIC 


OOO O00 0009000000909 INNIS 


FUN SO ODNAN EWN 0 ODONOAUE UT 


95 RUNDEF AULT: 

96 eASCIC 
97 LOGOUTIMG: 
98 -ASCIC 


99 MCRIMG: 
0 -ASCIC 


1 SYSPRINT: 


sASCII 
Z SYSPRTSIZ =. = 


3 as K WARE ee 
= 
0 PTarimaces = SIN 
: -ENDM 


INTIMAGE 


B8Eb 1986 33: 


CALLS 


DCLSZCODE ,BYTE,RD,NOWRT 
*SYSSSYSTEM: .EXE' 

* EXE 

*LOGINOUT’ 

*RSX’ 

*SYSSPRINT" 


SYSPRINT 


SH as | NAME 


SINTIMAGES 


T 
TIMAGES + 1 


$ 


5 
41:04 
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z2v 


om 
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ANENT DATA AREA 
SS WORK AREA 
AND ry mom 


mmm—oamma 
owPp 
2223 
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OR DEFINITIONS 
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2222 2mMSS2F 22M 
D> >i 
Somm 
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mcom wVvo--zam 
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sEXTERNAL COMMAND IMAGE DEFAULT STRING 


RUN COMMAND IMAGE DEFAULT STRING 
FILENAME TEXT STRING FOR LOGOUT IMAGE 
IMAGE FOR MCR COMMAND 


DEFAULT QUEUE LOGICAL NAME 
sSIZE OF THAT STRING 
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4-SEP=19 
- ~SBTTL RUN IMAGE 
: DCLSRUN = RUN IMAGE 
; THIS ROUTINE IS CALLED AS AN INTERNAL COMMAND TO EXECUTE THE RUN COMMAND. 
; INPUTS: 


H BUFFER DESCRIPTOR. 
H STACK. 

COMMAND WORK AREA. 
PROCESS WORK AREA. 


; OUTPUTS: 
THE SPECIFED IMAGE IS INITIATED. 


; **p 

: R11 = BASE AD 

DCLSRUN:: IMAGE 

BICW —-#<PRC_M DBGQUAL : PRC m _pBgTRUE? = ;CLEAR DEBUG QUALIFIER SEEN, 
PRC_W"FCAGS(R1 iA ND DEBUG QUALIFIER TRUE FLAGS. 

CLRQ 0s = (SB) AKE A SCRATCH BUFFER 

10$:  BSBW  DCLSGETDVA Ce NEXT DESCRIPTOR VALUES 

THE END OF THE PARAMETERS? 


te 4 2 2 a a a a as a a a ts 4 ts bt as ts ss tb ts 


VERE REESE S&B WWWIWIWIWI III RPRRoNuNun 2 


OODNA MALU SO OD NA NEW 0 ODNOAU EA OOCOVOu 


CMPB RS, #PTR_K MENDLINE ‘1S THIS 
BEQL iBR IF YES 
CMPB «= sa RS, #PTR_K_PARAMETR t1S THIS THE FILE TO RUN? 
BEQL §«6=_—«a20 ‘BR IF 
BISW #<PRC_M DBGQUAL PRC _M_DBGTRUE>,- ;SET DEBUG QAULIFIER SEEN 
PRC_W-FCAGS(R11) SAND ASSUME QUALIFIER TRUE 
BLEC «aR 8 IF NEQATED 
CLRBIT PRC V_DBGTRUE PRC_W.FLAGS(RII) sSET STATE TO FALSE 
20$: mova  R1,(SP) 3SAVE FILE SPECIFICATION DESCRIPTOR 
BRB 10$ LOOK FOR MOR 
30$: POPR #*M<R1,R2> GET FILE SPEC OF FILE TO RUN 


BRW SE TRUNDEF SET RUN DEFAULT AND GO RUN IT 


G 13 


FA 


COOGOCOCOCOCOCOOOCOCOOOOOOOOOOoOoOO “a 


ses 


15-SEP-1984 ++} pares Macro V04-00 Pa 
arSeer TSBs $8i27:be YORI MES Reece vOETO0 1 - 


-SBTTL LOGOUT PROCESS 
; DCLSLOGOUT = LOGOUT THE PROCESS 
: THIS ROUTINE IS FALLED AS _AN_INTERNAL COMMAND TO exe 
; COMMAND OR TO EFFECT Ae ys 4 WHEN END_OF FILE OCCURS 
; ALSO, MAY BE ENTERED IF A HANGUP OCCURS OR A PROCESS 


INPUTS: 


eo! 
e 


“wo 


eee DESCRIPTOR. 


AND WORK AREA. 
CESS WORK AREA. 


i: 


; OUTPUTS: 

Z THE LOGOUT IMAGE IS INITIATED. 

DCLSLOGOUT: : 

: IF SILENT LOGOUT SPECIFIED, THEN SKIP LOGOUT AND BRANCH TO THERE. 


BBC #PRC_V_AUTOLOGO,PRC_W_FLAGS(R11),10$ ; BRANCH IF FLAG NOT SET 
BRW SILENT LOGOUT 


SOOO GCCOOCOOoOGoOoQOoooQoQooooooooo 
PUP SPVDUPUSUSUSUSVSISISUSI SSSI «= 
“>>>>rrrrrrr,rr,r,r,r,r>rrrrrrrrr wm 


03 68 AB 08 3 
FF9E® 31 


a a a a ed dd dd dd Ie UN 
50.0909 09 09 09 00 09 09 09 09 SIN NIN NIN NNN NAA AAAAAAAAOMUIUIVIUINIVIN «— 
SODWNAUES WN O ODNAUES WN 0 OO NAU EW O OONOAULS UT 

. 


006 
006 3 
206 : RUN DOWN ACTIVE PROCEDURES AND IMAGES. CLOSE OPEN PPF FILES. 
OF 10 006 10s: BSBB = OCLSCLOSE_PPFS 
boee 
0064 : ACTIVATE LOGOUT IMAGE 
0080 CB «D0 «(0064 : MOVL PRC TL LSTSTATUS(R11),- gPASS FINAL STATUS TO LOGOUT 
00000018' GF 068 RC TESAG CLIDATA+PPD$L -LSTS 
52. AS AF QE 006D MOVAB SogouT IMG ,R2 ART Use THE COUNTED STRING 
11 0071 BRB SET IMGNAME ‘35 SET LENGTH, DEFAULT, & EXECUTE IT 


| 
rcs 
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PREPARE AE PROCESS FOR LOGOUT 778Eb= 138 33:24:89 YOCL SRCTIMAGEXECT MAR: 1 . (8) 
? 193 > .SBTTL PREPARE THE PROCESS FOR LOGOUT 
, 194 : DCLSCLOSE_PPFS = PREPARE THE PROCESS FOR LOGOUT 
7 196 : THIS ROUTINE IS CALLED TO PREPARE THE PROCESS FOR LOGOUT. ACTIVE COMMAND 
i 13 3; PROCEDURES AND IMAGES ARE RUN DOWN. OPEN PPF FILES ARE CLOSED. 
, 199 > INPUTS: 
oF Hi ; R11 = BASE ADDRESS OF PROCESS WORK AREA. 
oF 03 : OUTPUTS: 
07 05 : NONE 
B73 509° | 
07 08 DCLSCLOSE_PPFS:: | 
007 19 ; RUN DOWN ANY PROCEDURES OR IMAGES STILL ACTIVE 
SC AB DS 0075 Bie los: TSTL — PRC_L_INDEPTH(R11) :INDIRECT LEVEL ZERO? | 
FFBS* 30 0078 14 BSBW DCL SUNSTACK SUNSTACK INDIRECT LEVEL 
F6 11 007B 215 BRB 10$ ; 
oD 519 
07D 218 ; CLOSE ALL PROCESS PERMANENT FILES STILL OPEN | 
; 
9 1C AB 07D 0 30$:  MOVL  PRC_L_INDFAB(R11),R9 «GET ADDRESS OF INDIRECT FAB 
35 M3 oP 008) 1 MOVAB PRC“L-PPFLIST(R115,R2  ;GET ADDRESS OF FILE DESCRIPTOR LISTHEAD 
52 6 09 085 ; 30S: MOVL (R2J,R2 3GET ADDRESS OF NEXT FILE DESCRIPTOR 
10 13 0088 BEQL 408 SIF EQL END OF LIST 
1¢ A2. BO GOgA r MOVW  RABSL_CTX+4(R2),- TINSERT INTERNAL FILE INDEX | 
02 Ad 08D 5 FAB JF1(R9) : 
O8F 6 SCLOSE FAB=(R9) ?CLOSE FILE 
eB 11 0098 BRB 30$ : 
O9A § : 
9A 9 $ CLOSE POSSIBLY REDEFINED SYSSOUTPUT FILE | 
52 0114 CB i O9A é 40$:  MOVAB. - PRC_W_OUTIFI(R11).R :GET ADDRESS OF PROCESS PERMANENT OUTPUT FIL 
5 C CB O9F MOVL  PRCTL7IDFLNK(R11).R [GET ADDRESS OF CURRENT IDF FRAME 
a tT 30 OA4 4 BSB DCLSRESTORE_OUTPUT [CLOSE TEMPORARY OUTPUT FILE | 
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4-SEP=1 DCL.SRCJIMAGEXECT.MAR; 1 (6) 
A i : .SBTTL MCR COMMAND 
s 33 : DCLSMCR = EXECUTE THE MCR COMMAND 
A 4] ; THIS ROUTINE IS CALLED AS AN INTERNAL COMMAND TO EXECUTE THE MCR COMMAND 
A ‘8 + INPUTS: 
A 45 : RB = ADDRESS OF SCRATCH BUFFER DESCRIPTOR. 
A 46 : R9 = ADDRESS OF SCRATCH STACK. 
A 47: R10 = BASE ADDRESS OF COMMAND WORK AREA. 
OA 48 : R11 = BASE ADDRESS OF PROCESS WORK AREA. 
. 29 ; OUTPUTS: 
OA 3 : THE FIRST TOKEN ON THE COMMAND LINE IS USED TO ACTIVATE AN IMAGE. 
OA 53: IF THE COMMAND LINE IS NULL, THE MCR IMAGE IS ACTIVATED. 
Bee 
OA 36 -ENABL LSB 
OA 57 DCLSMCR:: sEXECUTE THE MCR COMMAND 
FFSS* 30 OOA 58 BSBW DCLSGETDVAL :GET DECSRIPTOR VALUE 
54 COS 1 09 O0AB 59 MOVL R1,R4 :COPY LENGTH OF STRING 
0A 12 OOA 60 NEQ 10 [BR IF IMAGE NAME SUPPLIED 
52 FFOA CF 9E 008 61 MOVAB MCRIMG,R2 [SET ADDRESS OF IMAGE NAME 
008 6¢ SET IMGNAME : [SET IMAGE NAME, DEFAULT, & EXECUTE IT 
51 82 9a 0085 26 MOVZBL (R2)+ RI [SET IMAGE NAME LEN 
F 11 00BB 264 SETIMGDE [GO SET DEFAULT AND EXECUTE IT 
5 1 DO OOBA 265 10$:  ##MOVL  R1,R3 [SAVE LENGTH OF STRING 
62 5 20 A 008D 66 LOCC =—_-s #*A/_/ J R3, (R2) SFIND SPACE DELIMITER 
5 0 7D 00C1 2 VQ  RO,RS SSAVE POSITION INDICATORS 
62 53 2F 3a 0064 68 LOCC = #*Ae/#,R3, (R2) [FIND SLASH DELIMITER 
56 O51)—Sso«#D1s«008 CMPL RT [WHICH CAME FIRST? 
03 19 00CB 0 BLSS =—-_:«*15$ SUSE POSITON OF SLASH 
50 7D OCD 7 MOVa = R'5, RO [USE POSITION OF SPACE 
54 50 ce D 72 15$:  SUBL RO.R4 [FIND LENGTH OF TOKEN 
62 54 SB BF 3A 00D ? LOCC} =—_—s @* AE, R4, (R2) [LOOK FOR A DIRECTORY 
06 12 00D 7% BNEQ 208 ‘BR IF DIRECTORY IN THE SPEC 
62 54 3C 3A OODA 275 LOCC = #*A/</ , RG, (R2) :TRY OTHER SYN 
06 13 DE id: BEQL 30 ss IF NO DIRE ECTORY FOUND 
00 OOAF cB OC2:sé€ E 77 20$:  BBSS  #PRC_V_RUNDEF,PRC_B_ FLAGS &R 1),30$ ;USE RUN DEFAULT 
51 54 «OD O0E6 28 O$: $MOVL R4,RT ~ BYTE COUNT OF IMAGE TO RUN 
0E9 27 .OSABL LSB 


EXTERNAL COMMAND EXECUTION 4-SEP=1 DCL. SRCJIMAGEXECT.MAR; 1 


E 1 , ~SBTTL EXTERNAL COMMAND EXECUTION 
E $j $ DCLSEXTIMAGE = EXTERNAL COMMAND EXECUTION 
33 5 : THIS ROUTINE IS CALLED AS AN INTERNAL COMMAND TO INITIATE EXECUTION OF AN 
34 $ : EXTERNAL IMAGE. 
34 § : INPUTS: 
133 0; R1 = LENGTH OF IMAGE FILE SPECIFICATION. 
£9 291: R2 = ADDRESS OF IMAGE FILE SPECIFICATION. 
133 3 ; RB = ADDRESS OF SCRATCH BUFFER DESCRIPTOR. 
E 93 : R9 = ADDRESS OF SCRATCH STACK. 
069 294: R10 = BASE ADDRESS OF COMMAND WORK AREA. 
Oey 99 3 R11 = BASE ADDRESS OF PROCESS WORK AREA. 
0€9 3 : OUTPUTS: 
0E9 38 ; 
NEQ 299: THE SPECIFED IMAGE IS INITIATED. 
Or? 300 :- 
00E9 o1 
00E9 : DCLSEXTIMAGE:: EXTERNAL COMMAND EXECUTION 
O00E9 303 SETIMGDEF: *SET CORRECT DEFAULT F OR IMAGE 
0600 8F AA O0E9 304 BICW #<PRC M DBGQUAL ! PRC M -DBGTRUE> = R DEBUG QUALIFIER SEEN, 
68 AB 00ED 305 WeFCAGs 1) déB ve’ QUAL IPLER TRUE FLAGS. 
53 FFOD CF 4: OOEF 06 MOVAB anne FAU af eet OAA GE DEFAULT FOR EXTERNAL IMAGE 
OS OOaF cB O02 ~=SCOES:«(O0F4)~=— ss 30 BBCC © #PRC_V ARUNBEF , PRC_B_ Pinte gFORCEXIT sCORRECT DEFAULT? 
OOFA 308 SETRUNDEF: 7SET RUN DEFAULT FOR IMAG 
53 FFI2Z CF 9E OFA 09 MOVAB RUNDEFAULT,R3 SET IMAGE DEPAUL T FOR RUN'S 
OOFF 311 : FORCE IMAGE EXIT IF ONE IS ACTIVE 
OOF F \¢ : 
OOFF 313 : INPUTS: 
OOF F 14; 
OOFF 315: R1 = LENGTH OF IMAGE FILE SPECIFICATION 
OOFF 316: Re = ADDRESS OF IMAGE FILE SPECIFICATION 
OOF f ; R3 = ADDRESS OF COUNTED ASCII STRING FOR DEFAULT FILE NAME 
OOFF 319 
OOFF 20 FORCEXIT: SFORCE IMAGE EXIT 
023F 30 OOFF 321 BSBW DCLSFORCEXIT ; 
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IMAGEXECT - IMAGE EXECUTION 15-SEP-1984 +54: 2 VAX/vits Macro V04-00 Page 9 
ee hs INT TAFE TRACE greet S8 S8i2F:82 OR(MRS Hecro. vOEsO ef | 
3 .SBTTL INITIATE IMAGE 
1 5 : INITIATE AN IMAGE BY ENTERING USER MODE AND THEN SETTING UP THE INITIAL CALL 
: § 3; FRAMES AND ESTABLISHING A CATCH-ALL CONDITION HANDLER. 
! 8 : INPUTS: 
1 0: R1 = LENGTH OF IMAGE FILE SPECIFICATION 
1 1: Re ADDRESS OF IMAGE FILE SPECIFICATION 
10 : ; R3 = ADDRESS OF COUNTED ASCII STRING FOR DEFAULT FILE NAME 
19 4 
1 5 .ENABL LSB 
1 b INITIATE: s INITIATE IMAGE 
1468 AB 03 «€E2 O01 BESS #PRC_V_EXIT,PRC_W_FLAGS(R11),10$ IF SET, EXIT HANDLER ESTABLISHED 
51 DD 01 8 R1 ;REMEMBER LENGTH OF IMAGE FILE SPEC 
109 339 SDCLEXH S$ pRC _L_EXTBLK(R11) [DECLARE EXIT HANDLER 
51 BE pO 0114 0 OVL ~(SP)+-RT SRESTORE LENGTH OF IMAGE FILE SPEC 
01 cS 0117 «341 BLBs RO 108" ‘BRANCH IF SUCCESSFUL 
O11A 4g RSB SRETURN IF ERROR 
0118 «34 
0118 44; 
0118 45 : SET UP IMAGE ADDRESS SPACE 
gg He: 
55 00000000'GF DE 011 48 10$:  MOVAL G*MMGSIMGHDRBUF RS i ADDRESS TO RETURN IMAGE HEADER INFO 
7E 31 7D 01 49 MOVa = R1,=(SP) [PUT IMAGE NAME DSC ON 
51 é D0 01 50 MOV SP-R1 [GET ADR OF NP ILNAM STRING DESCRIPTOR 
52 83) «(9A «(0128351 MOVZBL (R3)+,R2 [GET SIZE OF DEFAULT NAME st Ri NG 
7E 52 «7D oi B 38 MOVO = R2,-(§P) PUT DEFAULT NAME DSC ON STA 
50 SE 00 O12€ 35 MOVL — SP.RO [GET A R OF DFLTNAM STRING DESCRIPTOR 
0131 «= 354 SIMGACT_S - ACT IVATECT HE IMAGE 
131 355 NAME=(R1),- SADDRESS OF FILE NAME DESCRIPTOR 
131 36 DFLNAM=(ROQ) ,- SADDRESS OF DEFAULT NAME DESCRIPTOR 
13135 DRBUF=(R5) SADDRESS OF IMAGE HEADER 
0650 €9 0146 358 BLBC  —_-RO, 11 ‘BRANCH IF ACTIVATION ER 
SE 10 CO o149 59 ADDL #16,SP [CLEAN OFF IMGACT DESCRIPTORS 
00pB 431 «014C~=Ss 360 BRW 30$ [AND GO ACTIVATE THE IMAGE 
6c C O14F 361118: CLRQ (SP) [SET UP NULL RESULT NAME DESCRIPTOR 
53 50 00 131 6¢ MOVL _RO,R3 TSAVE STATUS 
134 63 SRUNDWN_S #PSLSC_USER [RUN DOWN IMAGE 
130 65 : CHECK IF THE IMAGE THAT JUST FAILED WAS LOGINOUT. 
O08 AE FEBG CF 91 13 67° CMPB LOGOUTING, ,8(SP) :CHECK LENGTH FIRST 
fs 16 68 BNEQ “BR IF i age LEN 
FEA9 CF «600C BE 0B ag é 16 69 CMPC3 8(SP),a12(SP), LOGOUT IMG+1 IMAGE LOGINOUT? 
2 2 160 20 BNEQ 1118 3NO, process NORMAL ERROR PATH 
16F 372 ; FAILED IMAGE ACTIVATION WAS LOGINOUT. WILL USE SEXIT_S TO TERMINATE 
16 3 : THE PROCESS INSTEAD 
50 1C AB v0 16 75 MOVL PRC_L_INDFAB(R11),RO § ;GET ADDR OF INDIRECT FAB 
0114 cB B0 01 3 2 MOVW  PRC"WOUTIFI(R11).- [GET INTERNAL FILE INDEX OF SYS$OUTPUT 
02 A 17 7 FABSW~ FIER ) ; 
179 37 SCLOSE FAB=(RO) [CLOSE INDIRECT OUTPUT FILE 
182 37 SCANEXH_S [CANCEL SUPERVISOR MODE EXIT HANDLERS 
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Mie ts INT TATE IMAGE 4-SEP-1984 33:24:69 YOCL SRCJIMAGEXECT MAR: 1 . tg) 
18 0 SEXIT_S PRC_L_LSTSTATUS(R11) | ;EXIT PROCESS WITH FINAL STATUS | 
19 
54 4 «(019 g 1118: CLRL R64 zINIT NULL STV FROM FAB 
55 08 AS 00 019 4 MOVL 8(RS),RS ‘FAB ADDRESS OF ERROR IF ANY 
29 «13 «019 5 BEQL 148 ‘BRANCH IF NONE PRESENT 
S52. 2C AS 00 019 6 MOVL FABSL_FNACRS),R2 SORIGINAL FILE NAME ADDRESS 
23. «13 «OO1A BEQL 14$ ‘BRANCH IF FAB IS EMPTY 
51 3405 OA Ot 8 MOVZBL FABSB_FNS(RS5),R1 tSIZE OF ORIGINAL FILE NAME STRING 
08 AE 51 «7D O18 89 MOVa ~—s- R18 (SP) SUSE THIS FOR ORIGINAL FILE NAME 
4 ¢ A? D TAC 0 MOVL  FABSL_STV(RS) RG [GET FAB’S STV FIELD 
9 AS 6000 sO01B 91 MOVL FABSL-NAM(R5).R 'GET ADDRESS OF NAME BLOCK 
4 A0 DO 07B4 36 MOVL NAMSL“RSA(RO).R SADDRESS OF NAME STRING 
51 03 A0 9A O28 39 MOVZBL NAMSB-RSL(RO).R1 ‘SIZE OF RESULT NAME STRING IF ANY 
06 12 O1BC 34 BNEG SBRANCH IF IT EXISTS 
51 OB AO 9A O1BE 5 MOVZBL NAMSB_ESL(RO),R1 SEXPANDED NAME STRING SIZE IF ANY 
03 13 O1C 96 BEQL $ [BRANCH IF NO NAME TO OUTPUT 
6 51 7D 0104 397 12$: mMOVd  R1,(SP) : RESULT/ EXPANDED NAME STRING 
55 5E 00 gic7 98 14$:  MOVL  SP.R5 ?R5 IS ADR OF NAME DESCRIPTORS 
O1CA 400: «sp = DESCRIPTOR FOR RESULT/EXPANDED FILE NAME 
ICA 401 : 8(SP) = DESCRIPTOR FOR ORIGINAL FILE NAME 
52. 000388AA BF D0 OCA 103 MOVL  #CLIS_IMGNAME,R2 SERROR CODE FOR 2ND MSG 
53 00000000" BF Di 1D 404 CPL #RUSS_FNF RS SIF ORIGINAL ERR IS FILE NOT FOUND 
53 D4 O1DA 406 ear ; THEN 3RD MSG IS NULL 
VL LIS_ NF, ;AND 2N A LE N UN 
52 00038882 BF 00 1 407 MO #CLIS_IMAGEFNF ,R2 D 2ND IS “IMAGE FILE NOT FOUND’ 
Ole 409 + NOW BUILD THE PUTMSG ARGUMENT 
01 53 OC 10 = €D SE 411 16$:  CMPZV  #STSSV_FAC_NO,#STSS$S_FAC_NO,R3,41 :IF THIS IS AN RMS ERROR CODE 
02. 12 O18 aig BNEQ 178 
54 DD OFA 41 PUSHL R4 :THEN USE SAVED STV FROM FAB 
53) oD OiEC 414 17$:  PUSHL R3 TERROR CODE FOR 3RD MSG 
65 05 O1FE 415 TSTL. (RS) [IF NO RESULT NAME STRING 
09 «12 OIF 416 BNEQ 18% 
52 000388AA 8F D1 Orr 417 CPL #CLIS_IMGNAME .R2 ;THEN SKIP THE IMAGE NAME MESSAGE 
oe 7F O1FB 419 18$:  PUSHAQ tt SADR OF DESCRIPTOR FOR RSLT NAME 
o1 DD O1FD 420 PUSHL #1 [ONE FAO ARGUMENT 
2 D OF 421 PUSHL R2 TERR CODE FOR OND MSG 
08 A F 0201 4 : 182$: PUSHAQ 8(RS) SADR OF DESCRIPTOR FOR ORIG NAME 
gi DD 4 4 PUSHL #1 [ONE FAO ARGUMENT 
00030000'8F DD 6 424 PUSHL #<SHRS_ACTIMAGE ! - “ERR CODE FOR 1ST MSG 
C 425 <CLIS_TMGNAME & STSSM_FAC_NO>> 
7E 55 SE C3 C 4626 SUBL3 SP,R57-(SP) SFORM SIZE OF ARG LIST IN BYTES 
6 04 6 4 ? DIVL #4.(5P) SARG LIST SIZE IN LONG WORDS 
4 : : NOW OUTPUT THE ERROR MESSAGES 
50 5E 00 13° 431 MOVL SP, RO SADDRESS OF PUTMSG PARAMETERS 
FDE?" 18 4 ; BSBW DCL SPUTASG [CALL THE PUTMSG FACILITY 
SE 55 10 C1 0219 & ADDL3 #16,R5,SP *POP ALL INFO OFF STACK 
0 3 09 1D 434 MOVL RO :GET ERROR CODE TO RETURN 
1 20 435 BNEG ==«o19 ‘BRANCH IF THIS IS THE ONE 
50 52 v0 02 436 MOVL  R2,RO SONLY 2 MESSAGES, USE THE 2ND 
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ea th INITIATE IMAGE 7786-138 33:2 : 16 fol SRCJIMAGEXECT.MAR; 1 eee 
0050 1¢ Fe 5 437 19$:  BBSS  #STS$V_INHIB_MSG,RO,20$ ; INHIBIT ERROR MESSAGE OUTPUT 
H 4 ; 20$: RSB ‘RETURN WITH STATUS CODE IN RO 
A 460; 
A 441 : RAISE ACCESS LEVEL TO USER 
A 728 : 
A bee 308 
51 65 00 A 445 “move (RSD :GET ADDRESS OF IMAGE HEADER 
50 6 , D4 D 446 CHPL cfs gf NORMAL ,RO ‘IF OTHER THAN NORMAL COMPLETION 
50 00000000" §F pi ; 448 cpt sss _SYSVERDIF ,RO : SYSTEM VERSION MISMATCH’? 
02 a1 28 81 0 B 450 CMPW 86s WI HDSL_SYSVER, IHDSW_ ACTIVOFF (R1) -IF RELEASE 1 IMAGE | 
F451 :WITH NO SYSVER STORED IN 
04 19 08 F 43¢ BLSS 35% STHEN AVOID ISSUING SPURIOUS WARNING 
50 00°8F 9A 0 41 433 ws MOVZBL #SS$_NORMAL,RO :BY CONVERTING TO NORMAL STATUS 
01 €1 0245 455 "BBC #1HDsy LNKNOTFR :BRANCH IF TRANSFER ADDRESS PRESENT 
19 20 Al 0247 456 IHDSL_CNKFLAGS (1) ,37$ 
50. 00° bt 0 4A 437 cMPL niSs8 NORMAL ,RO 010 IMAGE ACTIVATION SUCCEED NORMALLY? 
FDAE’ 30 O24F 459 BSBW DCLSERRORMSG ‘PRINT ALTERNATE SUCCESS MESSAGE 
0252 460 36$: § $RUNDWN_S #PSL$C_USER RUN DOWN IMAGE IF NO XFER ADDRESS 
50  0003889A 8F v0 0 38 461 MOVL “¥CLIS_NOTFR,RO SAND RETURN STATUS OF "NO TRANSFER ADDRESS" 
0080 cB. S50~—Ss«é o56¢ rhe 37$:  MOVL RO, PRC_L_IMGACTSTS(R11) ;STORE IMGACT STATUS FOR LATER 
50 04 A5 00 0268 464 MOVL 4(RS),RO™ SIMAGE FILE DESCRIPTOR BLOCK ADDRESS 
026€ 466 ASSUME IFDS$V -EXEONLY +1 EQ lrpsy -PRIV 
026€ 467 ASSUME PRC_V~EXEON 1 6a P 
50 10a0 02 OO EF O26¢ 468 EXTZV #I1FO$ SO EKEONLY, # 1FDSO. ARGS 0c Rae 
OOAF CB. «O02):SCiO3si«SOs—é«éF'COD §sts 470 INSV _— RO, #@PRC_V_EXEONLY,#2,PRC_B FLAGS2(R11) ;SAVE IN PROCESS FLAGS 
0279 471 SETBIT eRe AV TRURDUN, PRCB_ inGrCAgCRIT) s INDICATE IMAGE ACTIVATED 
F4 AA SE 00 027D 47g OVL POR R_L_SAVSP(R10)~ VE CURRENT STACK POINTER 
7E OF Ao ug 0281 473 ASHE meats Vv: “brome, WPSLSC wusehae Pata USER, .-(SP) ;SET USER PSL 
0288 475 DCLSLOW_ rimite : LOW LIMIT OF CONTROL Y/C ADDRESS RANGE 
09 68 AB O01 1 0288 476 “BBC #PRC V_CNTRLY,PRC_W_ FLAGS ERT) 40$ :1F CLR, NO AST PENDING 
7E 50 7D 028D 477 MOVa 0,-TSP) PUSH ‘és AND R1 
7E 05 7D 0 30 478 MOVO pi -(SP) PUSH #5 AND ZERO ASTPRM 
FDOA' 31 0293 479 BRW DCLSSCNTRLY SSIMULATE A CONTROL Y 
02 0 3% 480 40$: R TENTER USER MODE 
4 4 : DCLSHIGH_LIMIT:: ‘HIGH LIMIT OF CONTROL Y/C ADDRESS RANGE 
97 & : 
97 484 : BUILD TOP LEVEL CALL FRAME 
oe 
5c 067C «(02097 4 $ 50$: CLRQ AP SCLEAR INITIAL ARGUMENT AND FRAME POINTERS 
90'AF 00 FB 99 4 8 CALLS  #0,B8°60$ :CONSTRUCT TOP LEVEL CALL FRAME 
90 490 ; 
9 ‘32 ; ESTABLISH CATCH-ALL CONDITION HANDLER AND CALL IMAGE 
9 493° 
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15-SEP-1 1384 93:24: 0 yaa (vas Macro V04-00 Page 
4-SEP=19 :04 feu SRCJIMAGEXECT.MAR; 1 
0 sENTRY MASK 
G*EXESCATCH_ALL, (FP) § :ESTABLISH CAT CHALL HANDLER 
uS #2,G*EXESCATCH_ALL § :ESTABLISH LAST CHANCE HANDLER 
5 *PERFORM ADDRESS RELOCATION 
S*#SS$_NORMAL ,PRC_L_IMGACTSTS(R11) ;NORMAL IMAGE ACTIVATION? 
65$ 71F EQL YES 
RO SSAVE IMGFIX STATUS 
#0 ;CREATE PUTMSG VECTOR (FAO COUNT) 
PRC_L_IMGACTSTS(R11) ‘SET IMGACT STATUS COD 
te :# ARGS ON PUTMSG VECTOR 
SP,RO SADDRESS OF THE BUFFER DESCRIPTOR 
#*A'DCL ° : FACILITY NAME 
se + MAKE DESCRIPTOR OF NAME 
SP : set ADDRESS ott FACNAM 
#0 : NO ACTION ROUTINE 
: RO = ADDR ese “OF MESSAGE VECT 
6 ,6"SYSSPUTRSG : WRITE THE MESSAGE TO OYSSERROR, OUTPUT 
a $555 ; RESTORE THE STACK 
(SP)+,RO RESTORE IMGe 1X STATUS 


RO,110$ :1F LBC, WASH UP_ IMAGE 
G“MMG$ IMGHDRBUF ,R4 3GET IMAGE HEADER DESCRIPTOR 
CLISV_DEBUG £2 0 

CLISV-DBGTRU_ EQ 1 

PRC_V_DBGTRUE EQ PRC_V_DBGQUAL*+1 


#PRC_V_DBGQUAL ,#2,- ;BUILD PROTOTYPE CLI OPTIONS VALUE BY 

PRC_@ FLAGS(R11),-(SP) ;GETTING THE DEBUG QUALIFIER AND STATE 

#Prt_0_M MODE. PRC_W W_FLAGS(R11) 70$ ;BR IF NOT A BATCH JO 

fis 1$0_BAT A CSPy OR at THE BATCH BIT IF THIS IS ABATCH 

PREG vERTEY PRC_W AFLAGEURII B08 3BR IF VERIFY IS CL 

CLISV_VERIFY, (SP)~ ;PROPOGATE VERIFY IF TRUE 

PRC_L-INDEPTH(R11) SINDIRECT LEVEL ZERO? 

90$ SIF EQL YES 

CLISV. INDIRECT, (SP) sPASS INDIRECT NON ZERO 
#<CLISM_INDIRECT!CLISM_BATCH>, (SP) ; COMMANDS COMING FROM FILE? 

100$ :BR If TERMINAL JOB 

#CLISV_VERIFY,(SP),100$ :BR IF VERIFY NOT REQUESTED 

CLISV_QFYINP, (SP) SINDICATE INPUT VERIFY IS NEEDED 
THDSL~LNKFLAGS (R4) [PASS LINKTIME OPTION FLAGS 

R4,-(SP) [NEXT TWO PARAMETERS IN USER FRAME 
W*OCLSUTLSERV TSET ADDRESS OF UTILITY ROUTINE DISPATCHER 
THDSW LACTIVOFF(R4),RO OFFSET TO ACTIVATION DATA (TRANSFER VECTORS | 
R4,RO™ SADDRESS OF TRANSFER VECTOR ARRAY | 
(RO) SADDRESS OF TRANSFER VECTOR ARRAY 

RO)+ [CALL IMAGE ENTRY POINT 
G*EXESERIT_IMAGE ; 
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niet DCLSFORCEXIT = FORCE IMAGE EXIT 4-SEP-1984 33:2 YOCL  SRCIIMAGEXECT MAR: 1 ve 
41 47 z .SBTTL DCLSFORCEXIT = FORCE IMAGE EXIT 
ai 43 ; FORCE IMAGE EXIT IF ONE IS ACTIVE 
41 3] + INPUTS: 
al 338 : R2 = POSSIBLE ADDRESS OF ITEM ON STACK 
41 $5 : OUTPUTS: 
41 2$ : R2 = RELOCATED ADDRESS IF STACK IS SHUFFLED 
0341 238 ; RO ALTERED, R1, R3 PRESERVED 
0341 59 :- 
0341 260 
0341 61 DCLSFORCEXIT:: sFORCE IMAGE EXIT 
SE DO 0341 262 MOVL  SP,RO SSAVE SP ADR IN ORDER TO DETECT A SHUFFLE 
OF BB 0344 56 PUSHR #*M<RO,R1 Re. R3> ‘SAVE NAME STRING PARAMETER 
B7" 30 0346 564 BSBW DCLSRUNDOW RUN DOWN PREVIOUS IMAGE AND INDIRECT LEVELS 
OF BA 0349 565 POPR “m<RO,R1 WR. R3> ‘RESTORE NAME STRING PARAMETERS | 
50 D1 0348 566 CMPL RO SP [WAS THE STACK SHUFFLED? 
0B 13 O34E 567 BEQL =—«*108 iBR ANCH IF NOT 
52. D1 0350 568 CMPL  R2,RO WAS NAME STRING ON THE STACK? 
06 fF 0353 569 BLSSU.-:10$ [BRANCH IF Not 
50 ¢c2 0355 570 SUBL  RO,R2 ‘ADJUST THE ADDRESS 
Sse 2 CO «(0358571 ADDL  SP,R2 [TO REFLECT THe SHUFFLE 
05 0358 572 10$: RSB 


C 14 
ON i ae at bs 9 $3:2 +b 0 YVAX/VMS Macro v04-00 Page 14 
AND BUILD DESCRIPTOR 4-SEP-1984 704 ([DCL.SRCJIMAGEXECT.MAR;1 (10) 
-SBTTL ALLOCATE BUFFER AND BUILD DESCRIPTOR 
; DCLSALLOCBUF = ALLOCATE BUFFER AND BUILD DESCRIPTOR 


; ; THIS ROUTINE IS CALLED TO ALLOCATE A MESSAGE BUFFER ON THE STACK AND BUILD 
A BUFFER DESCRIPTOR FOR THE BUFFER. 


; INPUTS: 


; NONE. 


IMAGE XECT = IMAG 
v0e-600 ALLOCA 


; OUTPUTS: 
A MESSAGE BUFFER IS ALLOCATED ON THE STACK. 
R2 = ADDRESS OF BUFFER DESCRIPTOR. 
REGISTERS R3, R4, AND RS ARE PRESERVED ACROSS CALL. 

DCLSALLOCBUF :: sre ge nag ts AND BUILD DESCRIPTOR 
POPR #*M<RO> AVE RETURN ADDRES 
MOVAB  <WRK_C_MSGBUFSIZ(SP),SP ALLOCATE SPACE TO STORE FORMAT STRING 
PUSHAB (SP) :BUILD OUTPUT BUFFER DESCRIPTOR 


MOVZBL #WRK_C_MSGBUFSIZ,-(SP) ; 
nO SP ane sCOPY ADDRESS OF OUTPUT BUFFER DESCRIPTOR 
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IBAGEXECT = IMAGE EXECUTION 15-SEP-1984 33:34 £54: 0 VAX/VMS Macro v04-00 Page 15 | 
v04 COMMAND INTERPRETER EXIT HANDLER 46-SEP-1984 4 (CDCL.SRCJIMAGEXECT.MAR; 1 (11) 
6 6 3 : .SBTTL COMMAND INTERPRETER EXIT HANDLER 
6 6 4 $ DCLSEXITHAND = COMMAND INTERPRETER EXIT HANDLER 
6E 606 + THIS ROUT INE 1$ ENTERED WHEN A PREVIOUSLY INITIATED IMAGE EXITS. ITS FUN 
6€ 607 ; TION IS TO CLEAN UP THE STACK, SHUTDOWN THE IMAGE » _AND RETURN CONTROL O THE 
$f 608 t ADDRESS SPECIFIED UY THE TOP LONGWORD OF THE STACK 
6E 610 : INPUTS: 
6E 61g : @4(AP) = REASON FOR EXIT. 
0 6E 614 : OUTPUTS: 
036€ 616 : THE SAVED FRAME POINTER IS RESTORED, THE STACK IS CLEANED UP, IMAGE 
O36E 617: SHUT DOWN IS PERFORMED, AND CONTROL IS RETURNED TO THE ADDRESS SPECIFIED 
o3ee 618 ; BY THE TOP LONGWORD OF THE STACK. 
ef 620 : RO = REASON FOR EXIT. 
gee 
0000 0366 6 5 .ENTRY DCLSEXITHAND, “M<> 
FC8D’ 30 §3 625 BSBW CLISGET PRC -GET ADDRESS OF CLI WORK AREA 
68 AB 0B) «OAM «(0373S 626 BICW #PRC_M EXIT, PRC_wW FLAGS(R11) -CLEAR EXIT HANDLER uf STABL ISHED 
5D 04 AB DO 0377 627 MOVL PRC_C_SAVFP(R113,FP RESTORE SAVED FRAME POINTER 
5A 5D. sO=O 0378 : 8 MOVL  FP,R10 SAND RESTORE WRK ADDRESS 
O37 6 0 : ZERO COMMAND INTERPRETER COMMAND POINTERS 
00000000'GF 04 ose o33 ; CLRL G*CTLSGL_CLINTOWN ZZERO CLINT OWN STORAGE POINTER 
00000000'GF D4 o3ah 633 CLRL  G*CTLSGL-DCLPRSOWN [ZERO DCL PARSE OWN STORAGE 
03 A ss $ ISSUE ERROR MESSAGE (IF ANY) RETURNED BY IMAGE IN RO 
50 04 B8C 00 S3BA 637 10s: MOVL  @4(AP),RO ZRETRIEVE FINAL EXIT STATUS 
0c 50 £8 O38E 638 BLBS 0,208 [BRANCH IF SUCCESSFUL 
00000000'8F 50 01 0391 639 CMPL RO,#SSS$_CLIFRCEXT [NEVER ISSUE CLI FORCED EXIT MESSAGE 
03 13 0398 640 BEQL 4 ©_—«a208 1 IMPLIED IMAGE RUNDOWN 
FC63" 30 O39A 641 BSBWY DCLSERRORMSG TISSUE ERROR MESSAGE USING PER-IMAGE 
0390 649 [MESSAGES IF PRESENT 
He 644 : RUNDOWN ALL RMS FILES AND FLUSH ANY DATA RECORDS 
FC60" 30 6 9D 646 20$:  BSBW  DCLSSHUTDOWN :SHUT DOWN IMAGE 
52. DS O3A0 «64 TSTL = R2 TANY DATA RECORDS SKIPPED? 
OA 13 O3A2 648 BEQL 308 TIF EQL 
AS = 649 STATUS SKPDAT :SET SKIPPED DATA STATUS 
FCS2* 30 AB 630 BSBW DCLSERRORMSG [OUTPUT ERROR MESSAGE 
At 63¢ : RUNDOWN THE IMAGE 
at 654 $08: SRUNDWN_S #PSLSC_USER UN DOWN THE IMAGE 
OOAF (CB «418~=«OBA 655 BICB “#<PRC_M_EREONLY ! PRC_M_ PRiyeeP PRC_B FLAGS2(R11) 
¢ 656 RESET "ERECUTE ONLY’ 
¢ 65 TSR VL EGED™ IMAGE BIT 
038C 40658 CLRBIT PRC_V_IRUNDWN,PRC_B_IMGFLAG(R11) ; INDICATE IMAGE RUNDOWN 
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COMMAND INTERPRETER EXIT HANDLER 4-SEP=1984 23:41:04 [CDCL.SRCJIMAGEXECT.MAR;1 (11) 
C 59; 
i 666 ; RESTORE STACK POINTER TO SP SAVED ON THE ACTIVATE CALL 
SE FG AA DO C0 66 : MOVL WRK_L_SAVSP(R10),SP gRESTORE SAVED STACK POINTER 
| 2 o6% > SET THE FINAL RETURN STATUS IN $STATUS AND TAKE ANY ON CONDITION 
50 04 BC D0 (4 666° MOVL a4 (AP),RO :GET FINAL IMAGE STATUS 
0950 ~€ C8 66 BLBS R0,40$ SBRANCH IF SUCCESSFUL 
00000000 8F 9 D1 C 668 CMPL RO, #SS$_CLIFRCEXT [NEVER SET IWeLieD IMAGE RUNDOWN STATUS 
9 13 0302 6 BEQL 50 ‘BRANCH IF FORCED EX 
FC29" 30 0304 6 ; 40S: BSBu DCLSSET_STATUS 7SET $STATUS AND TAKE ON CONDITION 
D7 67 SNOTE: WILL NOT RETURN IF ON CONDITION 
8 it ers ; SET STATUS TO SUCCESS AND SET NOSTAT BIT TO INDICATE STATUS ALREADY SET | 
0307-675 50s: setsit #URK V_NOSTAT,WRK_W_FLAGS(R10) INDICATE STATUS ALREADY SAVED 
50 01 pO O3DC 676 #1,R0 ~ ND SET SUCCESSFUL 
05 O3DF 67 RSS Bae ts TO CALLER (COMMAND OR RUNDOWN) 
O3E0 678 
0360 679 END 
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PRC_L_ONCTLY 
PRC“ ONE RROR 
PRC-L-OUTOF BAND 
PRC-L-OUTRAB 
PRC~L-OUTRABCTX 
PRC“L“PPFLIST 
PRC“L-RECALLPTR 
PRC“L-RESTART 
PRC-L-SAVAP 
PRC“L-SAVFP 
PRC“L-SEVERITY 
PRC-L-SPUN 
PRC“L-STACKLM 
PRC“L-STACKPT 
PRC“L-STATUS 
PRC-L-STS 
PRC“L-STV 
PRC-L-SYMBOL 
PRC-L-TMBX 
PRC“L-TRMLIST 
PRC~M~DBGQUAL 
PRC-M~DBGTRUE 
PRC_M~EXEONLY 
PRC“M“EXIT 
PRC“M~PRIV 
PRC~Q-ALLOCREG 
PRC ~Q- COMMAND 
PRC~Q-FLUSHT IME 
PRC~Q-GLOBAL 
PRC~Q" IMAGENAME 
PRC~Q"KEYPAD 
PRC~Q"LABEL 
PRC~Q-LOCAL 
PRC~Q-SAVEPRIV 
PRC~T-OUTOVI 
PRC~V"AUTOLOGO 
PRC-V“CNTRLY 
PRC~V“DBGQUAL 
PRC~V“DBGTRUE 
PRC~V"EXEONLY 
PRC"V"EXIT 

PRC ~V~ [RUNDWN 
PRC~V“MODE 
PRC~V"PRIV 
PRC~V"RUNDEF 
PRC“V-VERIFY 
PRC“W"ASTIOSB 
PRC~W"ASTREIN 
PRC~W~ASTSTATUS 
PRC“W"ATTMBX 
PRC“W"FLAGS 
PRC” INPCHAN 
PRC ~W~ONLEVEL 
PRC-W-OUTIF I 
PRC“W"OUTISI 
PRC~W~OUTMBXCHN 
PRC~W~OUTMBXREF 
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ILERT_ LOGOUT 
SS$_CLIFRCEXT 
SS$~SYSVERDIF 
TSSM NO 
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WRK“LEXPANDPTR 
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“PROMPTRIN 
“PROPTR 
“L“QUABLK 
“LIREADRTN 
WRK-L-RECALLPTR 
RSLEND 
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WRK-W~IMGCHAN 
WRK“W_PRPTLEN 
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IMAGE XECT 


= IMAGE EXECUTION a ath 9 $324 +h 9 yore Macro V04-00 Page 49 
Psect synopsis (11) 


984 LOCLYSRCTIMAGEXECT MAR; 1 


PSECT name Allocation PSECT No. Attributes 


. : popopone ( -) 0O ¢ QO.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC z TE 
SABSS FFFF 4 1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
DCLSZCODE Ho0D0SE ( 2 2.) NOPIC USR CON REL LCL NOSHR EXE RD NOWRT NOVEC BYTE 
Pema moem rm on sr nawannenee 
! ;_Per formance indicators ; 
Phase Page faults CPU Time Elapsed Time 
Initialization 15 00:00:00.07 08:80:01.9 
—' processing 102 BR: 88:08 +03 00:00:05.7 
384 00:00:15.47 00:01:03.5 
Synbol table sort 4 BF 0 08 AS 380 398-67 
s2 120 00:00:03. 00:00:12.20 
we E, table output 35 00:00:00.25 00:00:01.40 
Psect synopsis output 2 B8 8808" 2 00:00:00.02 
Cross-reference output 0 00:00:00.00 Op 8088-88 
Assembler run totals 662 00:00:21.60 00:01:30.20 


The working set Limit was 1500 pages. 

82068 bytes (161 pages) of virtual memory were used to buffer the intermediate c 

There were 80 pages of symbol table space allocated to hold 1390 non-local and 43° tecat symbols. 
679 source Lines were read in Pass 1, producing 19 object records in Pass 2. 

58 pages of virtual memory were used to define 42 macros. 


Macro Library name Macros defined 


Stitt He SYSL IBIS VSSL OMS. MLB; 1 0 
55$DuU L.OBJ ICL MLB; | 10 
$255$DUA28: or $.0BJ JLIB.MLB;1 ¢ 

5SSDUAZ28: SYS IBISTARLET. MLB; 2 § 
wetare (all Libraries) 5 


1665 GETS were required to define 35 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$: IMAGEXECT/OBJ=OBJ$: IMAGEXECT MSRC$: IMAGEXECT/UPDATE=(ENHS: IMAGEXECT) +EXECML$/LIB+L 1B$:DCL/LIB+SYSS$LIBRARY : SYSBLOMLB/L 
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